home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 151 (1991-03-10)(Manewaldt, A.)(DE)(PD).zip / Taifun 151 (1991-03-10)(Manewaldt, A.)(DE)(PD).adf / ASM09 / testasm09.asm < prev    next >
Assembly Source File  |  1980-01-09  |  3KB  |  273 lines
  1. ;   Testfile
  2. ;   für Crossi 6809
  3. ;   (c) by Alex Holler
  4.  
  5. ldst    %macro  a,b,c
  6.     ld&a    b
  7.     st&a    c
  8.     %endm
  9.  
  10. rold    %macro a,b
  11.     rol&a
  12.     rol&b
  13.     %endm
  14.  
  15. getstr %macro a,b
  16.     %gensym string,stringe
  17.     ld&a #string
  18.     bra stringe
  19. string    db  b
  20. stringe
  21.     %endm
  22.  
  23. rol2   %macro c
  24.     rol&c b,a
  25.     rol&c b,a
  26.     %endm
  27.  
  28. testm   %macro  a,b,c
  29.     db  a,b,c
  30.     %endm
  31.  
  32. testm2   %macro  a,b,c
  33.     db  a,a,a
  34.     %endm
  35.  
  36.  
  37.     org $100
  38.  
  39.     asla
  40.     aslb
  41.     asra
  42.     asrb
  43.     clra
  44.     clrb
  45.     coma
  46.     comb
  47.     daa
  48.     deca
  49.     decb
  50.     inca
  51.     incb
  52.     lsla
  53.     lslb
  54.     lsra
  55.     lsrb
  56.     mul
  57.     nega
  58.     negb
  59.     nop
  60.     rola
  61.     rolb
  62.     rora
  63.     rorb
  64.     rti
  65.     rts
  66.     sex
  67.     swi
  68.     sync
  69.     tsta
  70.     tstb
  71.  
  72.     org $200
  73.  
  74.     swi2
  75.     swi3
  76.  
  77.     org $300
  78.  
  79.     andcc #0
  80.     cwai  #1
  81.     orcc  #2
  82.  
  83.     org $400
  84.  
  85.     pshs x
  86.     puls dp
  87.  
  88.     org $500
  89.  
  90.     pshu y
  91.     pulu s
  92.  
  93.     org $600
  94.  
  95.     tfr a,b
  96.     exg a,b
  97.     tfr a,dp
  98.     tfr pc,d
  99.     tfr d,pc
  100.     exg cc,dp
  101.     exg cc,cc
  102.  
  103.     org $700
  104.  
  105. br1
  106.     bcc br1
  107.     bcs br1
  108.     beq br1
  109.     bge br1
  110.     bgt br1
  111.     bhi br1
  112.     bhs br1
  113.     ble br1
  114.     blo br1
  115.     bls br1
  116.     blt br1
  117.     bmi br1
  118.     bne br1
  119.     bpl br1
  120.     brn br1
  121.     bvc br1
  122.     bvs br1
  123.     bra br1
  124.     bsr br1
  125.  
  126.     org $800
  127.  
  128. br2 lbra    br2
  129.     lbsr    br3
  130.     jmp     br3
  131.  
  132.     org $900
  133.  
  134. br3 lbcc    br3
  135.     lbcs    br3
  136.     lbeq    br3
  137.     lbge    br3
  138.     lbgt    br3
  139.     lbhi    br3
  140.     lbhs    br3
  141.     lble    br3
  142.     lblo    br3
  143.     lbls    br3
  144.     lblt    br3
  145.     lbmi    br3
  146.     lbne    br3
  147.     lbpl    br3
  148.     lbrn    br3
  149.     lbvc    br3
  150.     lbvs    br3
  151.  
  152.     org $1000
  153.  
  154.     adca    #245
  155.     adcb    #2
  156.     adda    #3
  157.     addb    #255
  158.     anda    #0
  159.     andb    #4
  160.     bita    #3
  161.     bitb    #2
  162.     cmpa    #3
  163.     cmpb    #3
  164.     eora    #5
  165.     eorb    #6
  166.     lda     #8
  167.     ldb     #9
  168.     ora     #7
  169.     orb     #8
  170.     sbca    #11
  171.     sbcb    #12
  172.     suba    #18
  173.     subb    #19
  174.  
  175.     org $1100
  176.  
  177.     addd    #$345
  178.     cmpx    #$400
  179.     ldd     #$300
  180.     ldu     #$400
  181.     ldx     #$500
  182.     subd    #$400
  183.  
  184.     org $1200
  185.  
  186.     asl     3
  187.     asr     4
  188.     clr     4
  189.     com     3
  190.     dec     4
  191.     inc     7
  192.     jmp     600
  193.     jsr     700
  194.     lsl     3
  195.     lsr     5
  196.     neg     6
  197.     rol     9
  198.     ror     10
  199.     sta     13
  200.     stb     14
  201.     std     15
  202.     stu     16
  203.     stx     17
  204.     tst     4
  205.  
  206.     org $1300
  207.  
  208.     leas    [a,x]
  209.     leau    [b,y]
  210.     leax    [d,u]
  211.     leay    [,s]
  212.     tst     [1,pcr]
  213.     adca    1,pcr
  214.     adcb    a,x
  215.     adda    b,y
  216.     addb    d,u
  217.     addd    ,-s
  218.     anda    ,--x
  219.     addd    ,-x
  220.     anda    [,--x]
  221.     andb    ,--x
  222.     andb    -128,x
  223.     anda    -1,y
  224.     andb    -16,u
  225.     andb    15,s
  226.  
  227.     org $1400
  228.  
  229.     db      "(c)"," by ", "Alex"   ,  "Hol",  'l'
  230.     db      'e', 'r'
  231.     db      -128,40, 255, 0, $2  ,%1111
  232.  
  233.     org $1500
  234.  
  235.     ds      3
  236.  
  237.     org $1600
  238.  
  239.     dw  2,300,"abcd"
  240.  
  241.     org $1700
  242.  
  243.     testm   3,4,6
  244.  
  245.     org $1800
  246.  
  247.     testm2   3,4,6
  248.  
  249.     org $1900
  250.  
  251.     getstr x,3
  252.  
  253.     org $2000
  254.  
  255. string lda 3
  256.  
  257.     org $2100
  258.  
  259.     ldst    a,$10,$20
  260.  
  261.     org $2200
  262.  
  263.     rold a,b
  264.  
  265.     org $2300
  266.  
  267.     rol2 d
  268.  
  269.  
  270.     end
  271.  
  272.  
  273.